(Man-build-section-alist): Remove last Man-match-substring.

diff --git a/lisp/man.el b/lisp/man.el
index c9d175466f741dcc34910f50188be243a676c0a7..b428e4693b385312dd0236b16475b0a9f3ab2ec2 100644 (file)
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -867,7 +867,7 @@ The following key bindings are currently in effect in the buffer:
   (goto-char (point-min))
   (let ((case-fold-search nil))
     (while (re-search-forward Man-heading-regexp (point-max) t)
-      (aput 'Man-sections-alist (Man-match-substring 1))
+      (aput 'Man-sections-alist (match-string 1))
       (forward-line 1))))
 
 (defsubst Man-build-references-alist ()